          
    (      )
   :

 Option Explicit
Option Base 1
Sub Name_Sheets()
If ActiveSheet.Name <> "" Then GoTo 1
With Application
  .EnableEvents = False
  .ScreenUpdating = False
  .Calculation = xlCalculationManual
  End With
 
Dim i%, x As String
Dim arr()
Dim my_sh As Worksheet: Set my_sh = Sheets("")
ReDim arr(1 To 10)
Dim last_row%
 
 arr = Array(" - ", " - ", " - ", _
 " - ", " - ", " - ", _
 " - ", " - ", _
 " - ", " - ")
 For i = 1 To UBound(arr)
 On Error Resume Next
   x = Sheets(arr(i)).Name
    If x = "" Then
        Sheets.Add after:=Sheets(Sheets.Count)
        ActiveSheet.Name = arr(i)
    End If
  Next
 On Error GoTo 0
   my_sh.AutoFilterMode = False
  For i = 1 To UBound(arr)
  Sheets(arr(i)).Range("a4").CurrentRegion.ClearContents
  my_sh.Range("a4").CurrentRegion.AutoFilter field:=4, Criteria1:="=" & arr(i)

my_sh.Range("a4:r464").SpecialCells(12). _
Copy Sheets(arr(i)).Range("a4")
With Sheets(arr(i))
         last_row = .Cells(Rows.Count, 2).End(3).Row
        .Range("c5:c" & last_row).SortSpecial Header:=xlYes
        .PageSetup.PrintArea = ""
        .PageSetup.PrintArea = "$A$1:$r$" & last_row
    End With
  Next
  my_sh.AutoFilterMode = False
 
1:
  With Application
  .EnableEvents = True
  .ScreenUpdating = True
  .Calculation = xlCalculationAutomatic
   End With
   Erase arr
  Sheets("").Select
End Sub


